home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Examples / card_3270.txt < prev    next >
Text File  |  1990-04-09  |  3KB  |  94 lines
  1. -- card: 3270 from stack: in
  2. -- bmap block id: 5188
  3. -- flags: 0000
  4. -- background id: 4709
  5. -- name: Newsletters
  6. ----- HyperTalk script -----
  7. on openCard
  8.   ResetMenuField
  9. end openCard
  10.  
  11. on mouseUp
  12.   visual dissolve slow to card
  13.   pop card
  14.   ResetMenuField
  15. end mouseUp
  16.  
  17. on ResetMenuField
  18.   put "‚Ä¢Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  19. end ResetMenuField
  20.  
  21.  
  22.  
  23.  
  24. -- part 3 (field)
  25. -- low flags: 01
  26. -- high flags: 0001
  27. -- rect: left=396 top=276 right=309 bottom=438
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Cover
  36.  
  37.  
  38. -- part 6 (field)
  39. -- low flags: 01
  40. -- high flags: 2004
  41. -- rect: left=26 top=76 right=233 bottom=192
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Select Field
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   global whichExample,showState
  53.   put empty into whichExample
  54.   put empty into showState
  55.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  56.   if line clickLine of me is not empty then
  57.     put word 1 of line clickLine of card field "Select Field" into whichExample
  58.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  59.     push card
  60.     visual dissolve to card
  61.     go to card whichExample
  62.   else
  63.     if line clickLine of me is not empty and whichExample is "Science &" then
  64.       push card
  65.       visual dissolve to card
  66.       go to card "Science & Engineering"
  67.     else
  68.       if line clickLine of me is not empty and whichExample is "HyperCard Stack" then
  69.         push card
  70.         visual dissolve to card
  71.         go to card "HyperCard Stack"
  72.       end if
  73.     end if
  74.   end if
  75. end mouseUp
  76.  
  77. on ResetMenuField
  78.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  79. end ResetMenuField
  80.  
  81.  
  82.  
  83. -- part contents for card part 6
  84. ----- text -----
  85. •Newsletters
  86.  Graphic Design
  87.  Illustrations
  88.  Presentations
  89.  Document Processing
  90.  Databases
  91.  Brochures
  92.  Image Transmission
  93.  Manuals
  94.